home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_87-02_1987_Verlag_Heinz_Weise_de.d64 / lohnsteuer 86 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  26KB  |  720 lines
  1. 0 ifpeek(50307)=120thenpoke50257,0
  2. 10 rem  *******************************
  3. 20 rem  *  lohn und einkommensteuer   *
  4. 30 rem  *     von michael hanke       *
  5. 40 rem  *      &  heiko hondong       *
  6. 60 rem  *******************************
  7. 65 sa=7:rem sekundaeradresse drucker
  8. 66 ki=9:rem kirchensteuersatz 9 %
  9. 67 rem ki=8 fuer baden-wuerttemberg,bayern,bremen und hamburg
  10. 70 dima(44),b(24),c(30),d(10),e(10),f(26),y$(6),s(4),k(30),v(10)
  11. 80 printchr$(14):printchr$(8):tp=31:d$="[196][205]        [146]"
  12. 90 poke53280,11:poke53281,11:poke649,1
  13. 100 print"[147][204][160][207][160][200][160][206][160]-  [197][160][201][160][206][160][203][160][207][160][205][160][205][160][197] [206][160][211][160][212][160][197][160][213][160][197][160][210]";
  14. 110 print"f u e r "
  15. 115 print"                           "
  16. 120 print"    1  99999  88888  66666 "
  17. 130 print"   11  9   9  8   8  6     "
  18. 140 print"  1 1  9   9  8   8  6     "
  19. 150 print" 1  1  9   9  8   8  6     "
  20. 160 print"    1  99999  88888  66666 "
  21. 170 print"    1      9  8   8  6   6 "
  22. 180 print"    1      9  8   8  6   6 "
  23. 190 print"    1      9  8   8  6   6 "
  24. 200 print"    1  99999  88888  66666 "
  25. 201 print"                           "
  26. 202 print"(1) _  [194]erechnung der [202]ahressteuer 1986"
  27. 204 print"(2) _  [197]inkommensteuertabelle      1986"
  28. 210 geta$:a=val(a$):ifa>2ora=0then210
  29. 215 onagoto230,5000
  30. 230 print"[147] [200]inweise zu den [197]ingaben ! "
  31. 240 print"[199]rundsaetzlich sind immer nur volle[146] [196][205]  -[194]etraege einzugeben !"
  32. 250 print"[196]ie [197]ingaben sind mit der [210]eturn-[212]aste[146]  abzuschliessen, ";
  33. 260 print"[193]usnahmen sind (j/n) -"
  34. 270 print"[193]bfragen. [198]alscheingaben koennen durch"
  35. 280 print"[201][206][211][212]/[196][197][204][146] korrigiert werden."
  36. 290 print" 0 [146] [196][205]-[197]ingaben oder nicht zutreffende  [193]bfragen  koennen durch ";
  37. 300 print" [196]ruecken  der  [210]eturn-[212]aste[146] beantwortet werden."
  38. 305 print"---->  [211][208][193][195][197]";
  39. 310 gosub3370
  40. 320 s$="[211]teuerpflichtigen":e$="[197]hefrau":r$="[210]eligion":g$="[199]eburtsdatum"
  41. 330 k$="katholisch":v$="evangelisch":l$="ledig":h$="verheiratet"
  42. 340 az$="[193]ngaben laut [218]eilen [206]r.":an$="[193]us [193]nlage [206] fuer":ki$="[203]irchensteuer"
  43. 350 print"[147] [193]llgemeine [193]ngaben ":a(1)=0
  44. 360 print"[198]amilienstand des"
  45. 370 print""+s$+":  ([214]) = "+h$
  46. 380 print"([204]) = "+l$
  47. 390 gety$:ify$=""then390
  48. 400 ify$="v"thenprint"[145][145]   "+h$+"[146]     ":goto430
  49. 410 ify$="l"thenprint"[145][145]   "+l$+"[146]          ":a(1)=1:goto430
  50. 420 goto390
  51. 430 print"                                       "
  52. 440 printg$+" des      ([212][212][205][205][202][202])"
  53. 450 print""+s$+":      .  .  [146]":gosub3390:ifa<220102thena(2)=1
  54. 460 ifa(1)=1then480
  55. 470 print""+e$+"          :      .  .  [146]":gosub3390:ifa<220102thenb(2)=1
  56. 480 print""+r$+" des          ( 0 / [197] / [203] )"
  57. 490 print""+s$+":":gosub3500:ify$="k"thena(3)=2
  58. 500 ify$="e"thena(3)=1
  59. 510 ifa(1)=1then550
  60. 520 print""+e$+"          :":gosub3500
  61. 530 ify$="k"thenb(3)=2
  62. 540 ify$="e"thenb(3)=1
  63. 550 print"[218]ahl der [203]inder  :"
  64. 560 gety$:ify$=""theny$="*"
  65. 570 ify$=chr$(13)theny$="0"
  66. 580 ifasc(y$)<48orasc(y$)>57then560
  67. 590 print"[145]";y$:a(4)=val(y$)
  68. 600 gosub3540:ifa$="n"then350
  69. 610 print"[147] [193]ngaben zum [193]rbeitslohn "
  70. 620 print""+an$+" den "+s$:b(0)=0:gosub700:gosub2390:ifa(1)then1670
  71. 630 print"[147] [193]ngaben in [193]nlage [206] fuer die "+e$+" ? "
  72. 640 print"                (j/n) ?":gosub3550:ifa$="j"then670
  73. 650 print"[145] keine ":gosub3540
  74. 660 ifa$="n"then630
  75. 665 goto1670
  76. 670 print"[147] [193]ngaben zum [193]rbeitslohn "
  77. 680 print""+an$+" die "+e$:b(0)=1:ae=1
  78. 690 gosub700:gosub2390:goto1670
  79. 700 gosub850:gosub1120
  80. 710 print"[147] [215]erbungskosten allgemein [146]"
  81. 720 print"[193]ngaben in [218]eile 45 - 48 ? (j/n)":gosub3550
  82. 730 ifa$="j"thengosub1400:goto750
  83. 740 print"[145]: keine":gosub3540:ifa$="n"then710
  84. 750 print"[147] [205]ehraufwendungen fuer [214]erpflegung "
  85. 760 print"[194]etraege in [218]eile 49 - 54 ? (j/n)":gosub3550
  86. 770 ifa$="j"thengosub1480:goto790
  87. 780 print"[145]: keine":gosub3540:ifa$="n"then750
  88. 790 print"[147] [205]ehraufwendungen ":print" fuer doppelte [200]aushaltsfuehrung "
  89. 800 print"[193]ngaben in [218]eile 55 - 63 ? (j/n)":gosub3550
  90. 810 ifa$="j"thengosub1570:goto830
  91. 820 print"[145]: keine":gosub3540:ifa$="n"then790
  92. 830 f(22)=f(17)+f(19)+f(20)+f(21):iff(22)<564thenf(22)=564
  93. 840 return
  94. 850 x$="[194]ruttoarbeitslohn":tp$="":tp=31
  95. 860 print""+x$+"      "+d$
  96. 870 gosub3570:f(5)=y:gosub3770
  97. 880 x$="[204]ohnsteuer":print""+x$+"             "+d$:gosub3570
  98. 890 f(6)=y :gosub3770:x$=ki$
  99. 900 onb(0)+1goto910,920
  100. 910 ona(3)+1goto960,930,950
  101. 920 onb(3)+1goto960,930,950
  102. 930 print""+x$+" (ev)     "+d$:gosub3570:f(7)=y:gosub3770
  103. 940 goto960
  104. 950 print""+x$+" (rk)     "+d$:gosub3570:f(7)=y :gosub3770
  105. 960 print"[194]etraege in [218]eile 7 -15 (j/n) ?":gosub3550
  106. 970 ifa$="n"thenprint"[145]   keine [146]":goto1082
  107. 980 x$="[211]umme der [218]eilen 7 - 9 "+d$:print"[145]"+x$:gosub3570
  108. 990 gosub3770:ify=0then1010
  109. 1000 f(8)=y
  110. 1010 x$="[211]umme der [218]eilen 10-12 "+d$
  111. 1020 print""+x$:gosub3570:gosub3770:f(9)=y
  112. 1030 print"[211]umme der [218]eile  13    "+d$
  113. 1040 gosub3570:gosub3770:ify=0then1060
  114. 1050 f(10)=y
  115. 1060 print"[211]umme der [218]eilen 14+15 "+d$
  116. 1070 gosub3570:gosub3770:ify =0then1082
  117. 1080 f(12)=y
  118. 1082 print"[214]ersorgungsbezuege im [194]rutto enthalten"
  119. 1083 print"[194]etraege lt. [218]eile 23  "+d$
  120. 1084 gosub3570:gosub3770:ify=0then1090
  121. 1086 f(11)=y:
  122. 1090 f(13)=0:print"[193]ngaben in [218]eile 31 - 36  (j/n) ?":gosub3550
  123. 1092 ifa$="n"thenb$=" keine ":goto1096
  124. 1094 b$="   ja  "::f(13)=1
  125. 1096 print"[145]  "+b$
  126. 1098 gosub3540:ifa$="n"thenfori=5to13:f(i)=0:next:ifb(0)=1then670
  127. 1100 ifa$="n"then610
  128. 1110 return
  129. 1120 print"[147] [215]erbungskosten "
  130. 1130 print"[198]ahrten zw. [215]ohnung und [193]rbeitsstaette"
  131. 1140 print"    [208][203][215](1)  [205][207][212](2)  [205][207][198](3)  [198][193][200](4)":gosub3700:a=val(a$)
  132. 1150 ifa=0then1300
  133. 1160 onagoto1170,1180,1190,1200:goto1260
  134. 1170 f=.36:w$="[208][203][215]":goto1210
  135. 1180 f=.16:w$="[205][207][212]":goto1210
  136. 1190 f=.22:w$="[205][207][198]":goto1210
  137. 1200 f=.12:w$="[198][193][200]"
  138. 1210 print""+w$+"[146] benutzt an [212]agen             [146]"
  139. 1220 gosub3570:gosub3770:f(14)=y
  140. 1230 iff(14)>365then:print"[145][145][145]":goto1210
  141. 1240 print"[197]infache [197]ntfernung              [146]":gosub3570:gosub3770:f(15)=y
  142. 1250 iff(15)>999then:print"[145][145][145]":goto1240
  143. 1260 f(16)=f*f(14)*f(15):f(17)=f(17)+f(16)
  144. 1270 ifx<2thenprint"weitere [193]rbeitsstaetten (j/n)?":gosub3550
  145. 1280 ifa$="j"thenprint"[145][145][145]":x=x+1:goto1140
  146. 1290 ifa$="n"thenprint"[145]:   keine"
  147. 1300 gosub3540:ifa$="n"thenf(14)=0:f(15)=0:x=0:f(17)=0:goto1120
  148. 1310 print"[147] [215]erbungskosten ":x$="[207]effentliche [214]erkehrsmittel"
  149. 1320 print""+x$:print"[193]ufwendungen        :  "+d$:gosub3570
  150. 1330 gosub3770
  151. 1340 f(16)=y
  152. 1350 print"vom [193]rbeitgeber"
  153. 1360 print"steuerfrei ersetzt  :  "+d$:gosub3570:gosub3770
  154. 1370 f(18)=y
  155. 1380 gosub3540:ifa$="n"thenf(16)=0:f(18)=0:goto1310
  156. 1385 f(17)=f(17)+f(16)-f(18)
  157. 1390 return
  158. 1400 x$="[194]etraege aus [218]eile "
  159. 1410 print"[145]"+x$+"45: "+d$:gosub3570:gosub3770:f(19)=y
  160. 1420 print""+x$+"46: "+d$:gosub3570:gosub3770:f(19)=f(19)+y
  161. 1430 print""+x$+"47: "+d$:gosub3570:gosub3770:f(19)=f(19)+y
  162. 1440 print""+x$+"48: "+d$:gosub3570:gosub3770:f(19)=f(19)+y
  163. 1450 print"[211]umme in [198]eld 77     = [196][205]":y=f(19):gosub3770
  164. 1460 gosub3540:ifa$="n"then710
  165. 1470 return
  166. 1480 x$="[194]etraege aus [218]eile "
  167. 1490 print"[145]"+x$+"50: "+d$:gosub3570:gosub3770:f(20)=y
  168. 1500 print""+x$+"52: "+d$:gosub3570:gosub3770:f(20)=f(20)+y
  169. 1510 print""+x$+"53: "+d$:gosub3570:gosub3770:f(20)=f(20)+y
  170. 1520 print"steuerfrei ersetzt   : "+d$:gosub3570:gosub3770
  171. 1530 f(22)=f(20)-y
  172. 1540 print"[211]umme in [198]eld 76     = [196][205]":y=f(22):gosub3770
  173. 1550 gosub3540:ifa$="n"then750
  174. 1560 return
  175. 1570 x$="[194]etraege aus [218]eile "
  176. 1580 print"[145]"+x$+"58: "+d$:gosub3570:gosub3770:f(21)=y
  177. 1590 print""+x$+"59: "+d$:gosub3570:gosub3770:f(21)=f(21)+y
  178. 1600 print""+x$+"60: "+d$:gosub3570:gosub3770:f(21)=f(21)+y
  179. 1610 print""+x$+"61: "+d$:gosub3570:gosub3770:f(21)=f(21)+y
  180. 1620 print"steuerfrei ersetzt   : "+d$:gosub3570:gosub3770
  181. 1630 f(21)=f(21)-y
  182. 1640 print"[211]umme in [198]eld 75     = [196][205]":y=f(21):gosub3770
  183. 1650 gosub3540:ifa$="n"then790
  184. 1660 return
  185. 1670 print"[147] [200]atten [211]ie [197]inkuenfte im [203]alenderjahr  [146]";
  186. 1672 print" 1 9 8 6 "
  187. 1673 print"   aus"
  188. 1674 print"[214]ermietung und [214]erpachtung..([193]nlage  [214] )[146]";
  189. 1676 print"                  oder"
  190. 1678 print"[203]apitalvermoegen............([193]nlage [203][211][207])[146]";
  191. 1679 print"                  oder"
  192. 1680 print"[199]ewerbebetr./[211]elbst.[193]rbeit..([193]nlage [199][211][197])[146]";
  193. 1682 print"                 (j/n)?"
  194. 1690 gosub3550:ifa$="n"thenprint"[145]keine ":goto1760
  195. 1700 print"[147][145][211]etzen [211]ie die [211]ummen ein,die [211]ie aus   den [193]nlagen ermittelt haben."
  196. 1710 print"[194]ei negativen [197]inkuenften das - [218]eichen "
  197. 1720 print"vor der [197]ingabe nicht vergessen!"
  198. 1730 print"[211]umme aus [193]nlage [214]  :  "+d$
  199. 1740 gosub3570:ifm=1theny=y*-1
  200. 1750 gosub3770:v=y
  201. 1752 print"[211]umme aus [193]nlage [203][211][207]:  "+d$:gosub3570:ifm=1theny=y*-1
  202. 1754 gosub3770:ks=y:ks=ks-400:ifa(1)=0thenks=ks-400
  203. 1755 ifks<0thenks=0
  204. 1756 print"[211]umme aus [193]nlage [199][211][197]:  "+d$:gosub3570:ifm=1theny=y*-1
  205. 1758 gosub3770:gs=y
  206. 1760 gosub3540:ifa$="n"then1670
  207. 1765 ifa(13)+b(13)=2ora(13)=1andae=0then1920
  208. 1770 print"[147] [211]onderausgaben ":x$="[211]ozialversicherung ":tp=33:tp$=""
  209. 1775 ifa(13)=1then1805
  210. 1780 print""+x$+"des [211]teuerpflichtigen"
  211. 1790 print"nur [193]rbeitnehmer[146]anteil:  "+d$:gosub3570:gosub3770
  212. 1800 a(23)=y:ifa(1)then1840
  213. 1805 ifb(13)=1orae=0then1835
  214. 1810 print""+x$+"der [197]hefrau"
  215. 1820 print"nur [193]rbeitnehmer[146]anteil:  "+d$:gosub3570:gosub3770
  216. 1830 a(24)=y
  217. 1835 ifa(13)=1then1875
  218. 1840 x$="[210]entenversicherung "
  219. 1850 print""+x$+"des [211]teuerpflichtigen"
  220. 1860 print"nur [193]rbeitgeber[146]anteil :  "+d$:gosub3570:gosub3770
  221. 1870 a(25)=y:ifa(1)then1910
  222. 1875 ifb(13)=1orae=0then1910
  223. 1880 print""+x$+"der [197]hefrau"
  224. 1890 print"nur [193]rbeitgeber[146]anteil :  "+d$:gosub3570:gosub3770
  225. 1900 a(26)=y
  226. 1910 gosub3540:ifa$="n"then1770
  227. 1920 print"[147] [211]onderausgaben ":print"in 1986   in 1986"
  228. 1930 print"gezahlt:  erstattet:"
  229. 1940 print"[198]reiw. [214]ers.:   "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
  230. 1950 gosub3770:a(27)=y
  231. 1960 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
  232. 1970 a(27)=a(27)-y
  233. 1980 print"[203]rankenvers.:   "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
  234. 1990 gosub3770:a(28)=y
  235. 2000 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
  236. 2010 a(28)=a(28)-y
  237. 2020 print"[213]nfallvers. :   "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
  238. 2030 gosub3770:a(29)=y
  239. 2040 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
  240. 2050 a(29)=a(29)-y
  241. 2060 print"[204]ebensvers. :   "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
  242. 2070 gosub3770:a(30)=y
  243. 2080 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
  244. 2090 a(30)=a(30)-y
  245. 2100 print"[200]aftpflicht :   "+d$:tp=24:tp$="[157][157][157][157][157][157]":gosub3570
  246. 2110 gosub3770:a(31)=y
  247. 2120 printtab(29);"[145]"+d$:tp$="":tp=37:gosub3570:gosub3770
  248. 2130 a(31)=a(31)-y:gosub3540:ifa$="n"then1920
  249. 2140 b(1)=a(27)+a(28)+a(29)+a(30)+a(31):tp=33:tp$=""
  250. 2150 print"[147] [211]onderausgaben ":print"[194]ausparkasse [194]eitraege:  "+d$
  251. 2160 gosub3570:gosub3770:a(32)=y
  252. 2170 print"[203]irchensteuer gezahlt :  "+d$:gosub3570:gosub3770:a(33)=y
  253. 2180 print"in 1986 erstattet     :  "+d$:gosub3570:gosub3770
  254. 2190 a(41)=y:a(33)=a(33)-a(41)
  255. 2200 print"[211]teuerberatungskosten :  "+d$:gosub3570:gosub3770:a(34)=y
  256. 2210 print"[194]erufsausbildung      :  "+d$:gosub3570:gosub3770:a(35)=y
  257. 2220 print"[211]penden ([218]eile 81-83) :  "+d$:gosub3570:gosub3770:a(36)=y
  258. 2230 print"weitere [211]onderausgaben:  "+d$:gosub3570:gosub3770:a(42)=y
  259. 2232 print" [193]ussergewoehnliche [194]elastungen "
  260. 2234 print"[193]ngaben in [218]eile  86 - 117  :  (j/n)":gosub3550
  261. 2236 ifa$="n"thenprint"[145]keine":so=0:goto2240
  262. 2238 print"[145]  [202]a ":so=1
  263. 2240 gosub3540:ifa$="n"then2150
  264. 2245 ifso=1thengosub6000
  265. 2250 goto2470
  266. 2260 ifa(0)=0thene=e/2
  267. 2270 e=int(e/54)*54
  268. 2280 ife<=4537thensx=0:goto2360
  269. 2290 ife>=18036then2310
  270. 2300 sx=int(.22*e-998):goto2360
  271. 2310 ife>=80028then2330
  272. 2320 a=(e-18000)/10000:sx=int((((2.1*a-56.02)*a+600)*a+2200)*a+2962):goto2360
  273. 2330 ife>=130032then2350
  274. 2340 a=(e-80000)/10000:sx=int((42*a+5180)*a+29417):goto2360
  275. 2350 sx=int(.56*e-16433)
  276. 2360 ifsx<0thensx=0
  277. 2370 ifa(0)=0thensx=sx*2
  278. 2380 return
  279. 2390 fori=5to22:gosub2420
  280. 2400 next
  281. 2410 return
  282. 2420 ifb(0)then2440
  283. 2430 a(i)=f(i):f(i)=0:goto2450
  284. 2440 b(i)=f(i):f(i)=0
  285. 2450 return
  286. 2460 :
  287. 2470 gosub3860
  288. 2480 x$=" [204]ohnsteuerausgleich ":y$="[204]ohnsteuer"
  289. 2490 iff(1)thenx$="[197]inkommensteuerveranlagung":y$="[197]inkommensteuer"
  290. 2500 tx=36:ifdr=1thentx=6
  291. 2510 print"[147]"+x$
  292. 2520 print:print"[198]estsetzung der "+y$
  293. 2530 print:print:print"in 1986 gezahlte [211]teuern     [196][205] ";:y=f(6):gosub3830
  294. 2540 print:print"fuer 1986 festgesetzt        [196][205] ";:y=et:gosub3830
  295. 2550 print:print"verbleibende [194]etraege        [196][205] ";:y=f(6)-et:gosub3830
  296. 2560 ifa(7)+b(7)=0ande(5)=0then2600
  297. 2570 print:print"[203]irchensteuer gezahlt        [196][205] ";:y=a(7)+b(7):gosub3830
  298. 2580 print:print"[203]irchensteuer festgesetzt 9% [196][205] ";:y=e(5):gosub3830
  299. 2590 print:print"verbleibende [194]etraege        [196][205] ";:y=(a(7)+b(7))-e(5):gosub3830
  300. 2600 iff(2)<=0thenf(2)=0:goto2620
  301. 2610 print:print"[210]ueckzahlung [211]parzulage      [196][205] ";:y=f(2):gosub3830
  302. 2620 print"========================================"
  303. 2630 y=(f(6)-et)+(a(7)+b(7))-e(5)-f(2)
  304. 2640 x$="[210]estguthaben":ify<0thenx$="[206]achzahlung "
  305. 2650 print""+x$+"[146]                 [196][205] ";:gosub3830
  306. 2660 ifhk=1thenprint#4:close4:hk=0:goto2700
  307. 2670 ifdr=1thenopen4,ga,sa:cmd4:hk=1:goto2480
  308. 2680 print"            (+)  weiter                 ";
  309. 2690 geta$:ifa$<>"+"then2690
  310. 2700 print"[147] [194]erechnung "
  311. 2710 x$="[197]hemann   [197]hefrau":ifa(1)=1thenx$="[211]teuerpflichtiger"
  312. 2720 tp=26:tx=36:ifdr=1thentx=6:tp=6
  313. 2730 print:print"                     "+x$
  314. 2740 print:print"[194]ruttoarbeitslohn [196][205]";:y=a(5):gosub3800:ifa(1)thenprint
  315. 2750 ifa(1)=0theny=b(5):gosub3830
  316. 2760 print:print"ab [198]reibetraege   [196][205]";:y=1080+f(25):gosub3800:ifa(1)thenprint
  317. 2770 ifa(1)=0theny=1080+f(26):gosub3830
  318. 2780 print:print"ab [215]erbungskosten [196][205]";:y=a(22):gosub3800:ifa(1)thenprint
  319. 2790 ifa(1)=0theny=b(22):gosub3830
  320. 2800 print:print"[197]inkuenfte        [196][205]";:y=a(5)-1080-a(22)-f(25):ify<0theny=0
  321. 2810 gosub3800:ifa(1)thenprint:goto2840
  322. 2820 y=b(5)-1080-b(22)-f(26):ify<0theny=0
  323. 2830 gosub3830
  324. 2840 print:print"[146]=============================";:ifa(1)=0thenprint"========="
  325. 2850 print:print"[193]nlagen [214]/[199][211][197]/[203][211][207] [196][205]";:y=v+ks+gs:gosub3800
  326. 2855 ifeb=0andef=0then2870
  327. 2860 print:print:print"[193]ltersentl. [194]etr. [196][205]";:y=eb*-1:gosub3800:ifb(2)=0thenprint
  328. 2865 ifb(2)theny=ef*-1:gosub3830
  329. 2870 print:print:print"[211]umme der [197]ink.   [196][205]";:y=c(2)+an-eb:ify<0theny=0
  330. 2880 gosub3800:ifa(1)thenprint:goto2910
  331. 2890 y=d(2)-ef:ify<0theny=0
  332. 2900 gosub3830
  333. 2910 ifhk=1thenprint#4:close4:hk=0:goto2960
  334. 2920 ifdr=1thenopen4,ga,sa:cmd4:print:print:print:hk=1:goto2700
  335. 2930 :
  336. 2940 gosub3740
  337. 2950 ifa$="-"then2480
  338. 2960 print"[147] [194]erechnung [146]  ([197]nde)":tx=36:ifdr=1thentx=6
  339. 2970 print:print"[199]esamtbetrag der [197]inkuenfte [196][205]";:y=c(3):ify<0theny=0
  340. 2980 gosub3830
  341. 2985 :
  342. 2990 print:print"[211]onderausgaben (abziehbar)  [196][205]";:y=c(4):gosub3830
  343. 2995 :
  344. 3000 :
  345. 3010 ifa(43)+k(30)=0then3080
  346. 3020 print:print"[193]ussergewoehnl. [194]elastungen:"
  347. 3030 print:print"[193]ufwendungen  [196][205]";:y=a(43)+k(30):tx=23:ifdr=1thentx=6
  348. 3040 gosub3830
  349. 3050 print:print"abziehbar nach [193]bzug        [196][205]";:y=a(44)+k(30)
  350. 3060 tx=36:ifdr=1thentx=6
  351. 3070 gosub3830
  352. 3080 print:print"[214]ersicherungsbeitraege:"
  353. 3090 print:print"gezahlt       [196][205]";:y=c(6):tx=23:ifdr=1thentx=6
  354. 3100 gosub3830
  355. 3110 print:print"abziehbar                   [196][205]";:y=b(24):tx=36:ifdr=1thentx=6
  356. 3120 gosub3830
  357. 3122 iffb>0thenprint:print"ab [211]umme der [198]reibetraege   [196][205]";:y=fb:gosub3830
  358. 3124 :
  359. 3130 print"======================================="
  360. 3140 print:print"[218]u versteuerndes [197]inkommen  [196][205]";:y=c(0):ifc(0)<0theny=0
  361. 3150 gosub3830
  362. 3160 ifhk=1thenprint#4:close4:hk=0:goto3190
  363. 3170 ifdr=1thenopen4,ga,sa:cmd4:hk=1:print:print:print:goto2960
  364. 3180 gosub3740:ifa$="-"then2700
  365. 3190 fora=1to3:y$(a)="":next:b=0
  366. 3195 print"[147]     [204]ohn- und [197]inkommensteuer 1986     "
  367. 3200 printy$(1)+"(1).........[206]eue [194]erechnung"
  368. 3210 printy$(2)+"(2)......[193]usgabe [194]ildschirm"
  369. 3212 ifpeek(50307)=120then3220
  370. 3215 printy$(3)+"(3).....[193]usgabe auf [196]rucker"
  371. 3220 geta$:a=val(a$):ifa>0anda<4thenb=a
  372. 3225 ifa$=chr$(13)then3240
  373. 3230 fora=1to3:y$(a)="":next:y$(b)="":goto3200
  374. 3240 onbgoto3250,3252,3254
  375. 3250 run
  376. 3252 dr=0:goto2480
  377. 3254 ifpeek(50307)<>120then3270
  378. 3260 goto3200
  379. 3270 ga=4:goto3320
  380. 3280 geta$
  381. 3290 ifa$=chr$(13)then3330
  382. 3300 ge=val(a$):ifge>3andge<7thenga=ge:goto3320
  383. 3320 print"[196]ruckeradresse :";ga:goto3280
  384. 3330 open4,ga,sa:close4
  385. 3340 ifst=-128then3360
  386. 3350 dr=1:goto2480
  387. 3360 print"[196]rucker einschalten !":fora=0to1000:next:goto3190
  388. 3370 geta$:ifa$<>" "then3370
  389. 3380 return
  390. 3390 gosub3480:fori=1to6
  391. 3400 gety$(i):ify$(i)=""theny$(i)="*"
  392. 3410 ify$(i)=chr$(20)then3490
  393. 3420 ifasc(y$(i))<48orasc(y$(i))>57then3400
  394. 3430 print"[145]";y$(1)y$(2);".";y$(3)y$(4);".";y$(5)y$(6):next
  395. 3440 geta$:ifa$=chr$(13)then3470
  396. 3450 ifa$=chr$(20)then3490
  397. 3460 goto3440
  398. 3470 a=val(y$(5)+y$(6)+y$(3)+y$(4)+y$(1)+y$(2)):return
  399. 3480 fori=1to6:y$(i)=" ":next:return
  400. 3490 print"[145]  .  .  ":goto3390
  401. 3500 gety$:ify$="k"thenprint"[145]";k$:return
  402. 3510 ify$="e"thenprint"[145]";v$:return
  403. 3520 ify$="0"ory$=chr$(13)thenprint"[145]keine":return
  404. 3530 goto3500
  405. 3540 print"           alles richtig ?  (j/n)      ";
  406. 3550 geta$:ifa$="j"ora$="n"thenreturn
  407. 3560 goto3550
  408. 3570 gosub3480:fori=1to6
  409. 3580 gety$(i):ify$(i)=""theny$(i)="*"
  410. 3590 ify$(i)=chr$(13)then3670
  411. 3600 ify$(i)=chr$(20)thengosub3690:goto3570
  412. 3610 m=0:ifi=1andy$(1)="-"thenm=1:goto3630
  413. 3620 ifasc(y$(i))<48orasc(y$(i))>57then3580
  414. 3630 print"[145]"+tp$;y$(1)y$(2)y$(3)y$(4)y$(5)y$(6):next
  415. 3640 geta$:ifa$=chr$(13)then3670
  416. 3650 ifa$=chr$(20)thengosub3690:goto3570
  417. 3660 goto3640
  418. 3670 y$=y$(1)+y$(2)+y$(3)+y$(4)+y$(5)+y$(6):y=val(y$)
  419. 3680 print"[145]"+tp$+"       ":return
  420. 3690 print"[145]"+tp$+"       ":return
  421. 3700 geta$:ifa$=""then3700
  422. 3710 ifa$=chr$(13)thenreturn
  423. 3720 ifval(a$)=0orval(a$)>4then3700
  424. 3730 return
  425. 3740 print"         (+) weiter  (-) zurueck        ";
  426. 3750 geta$:ifa$="+"ora$="-"thenreturn
  427. 3760 goto3750
  428. 3770 yf=abs(y):y=int(y+.5):print"[145]";
  429. 3780 printtab(int(log(yf-(yf=0))*.43429448188)*(yf>=1)+int(-yf)*(yf<1)+tp);y
  430. 3790 return
  431. 3800 yf=abs(y):y=int(y+.5):ifdr=0thenprint"";
  432. 3810 printtab(int(log(yf-(yf=0))*.43429448188)*(yf>=1)+int(-yf)*(yf<1)+tp);y;
  433. 3820 return
  434. 3830 yf=abs(y):y=int(y+.5):ifdr=0thenprint"";
  435. 3840 printtab(int(log(yf-(yf=0))*.43429448188)*(yf>=1)+int(-yf)*(yf<1)+tx);y
  436. 3850 return
  437. 3860 print"[147][194]erechnung !"
  438. 3862 ifa(2)=1thenfb=fb+720
  439. 3864 ifb(2)=1thenfb=fb+720
  440. 3866 ifa(4)>0thenfb=fb+(a(4)*2484)
  441. 3868 ifa(1)=1anda(4)>0thenfb=fb+4536
  442. 3870 f(25)=a(11)*.4:iff(25)>4800thenf(25)=4800
  443. 3872 f(26)=b(11)*.4:iff(26)>4800thenf(26)=4800
  444. 3878 c(1)=a(5)-f(25)-600:c(2)=c(1)-480-a(22)
  445. 3880 ifa(1)=0thend(1)=b(5)-f(26)-600:d(2)=d(1)-480-b(22)
  446. 3890 ifd(2)<0thend(2)=0
  447. 3900 ifc(2)<0thenc(2)=0
  448. 3902 an=v+ks+gs:ifan>0thenpe=an
  449. 3904 ifa(2)theneb=a(5)-a(11)+pe:ifeb<0theneb=0
  450. 3906 eb=eb*.4:ifeb>3000theneb=3000
  451. 3908 ifb(2)thenef=b(5)-b(11)+pe:ifef<0thenef=0
  452. 3909 ef=ef*.4:ifef>3000thenef=3000
  453. 3910 c(3)=c(2)+d(2)+an-eb-ef:c(4)=a(33)+a(34)+a(35)+a(36)+a(42):gosub4550
  454. 3920 ifa(1)=1then3940
  455. 3930 ifc(4)<540thenc(4)=540
  456. 3940 ifc(4)<270thenc(4)=270
  457. 3950 c(5)=c(3)-c(4):c(7)=6000:ifa(1)=1thenc(7)=3000
  458. 3960 c(6)=a(23)+a(24)+a(27)+a(28)+a(29)+a(30)+a(31)
  459. 3962 ifa(13)=1thena(25)=c(1)*.09:ifc(1)>67200thena(25)=6048
  460. 3964 ifb(13)=1thena(26)=d(1)*.09:ifd(1)>67200thena(26)=6048
  461. 3970 c(8)=c(7)-a(25)-a(26):ifc(8)<0thenc(8)=0
  462. 3980 c(9)=c(6)-c(8):ifc(9)<0thenc(9)=0
  463. 3990 c(10)=c(6):ifc(8)<c(6)thenc(10)=c(8)
  464. 4000 c(11)=c(9)+a(32):b(0)=2340
  465. 4010 ifa(1)=0thenb(0)=4680
  466. 4020 c(12)=b(0):ifc(11)<b(0)thenc(12)=c(11)
  467. 4030 c(13)=c(11)/2-b(0)/2:ifc(13)<0thenc(13)=0
  468. 4035 c(14)=b(0)/2:ifc(14)<0thenc(14)=0
  469. 4040 ifc(14)>c(13)thenc(14)=c(13)
  470. 4050 c(15)=c(10)+c(12)+c(14):c(16)=c(1)
  471. 4055 pb=a(13)+b(13):b(0)=2340:x=b(0)/2:ifpb=1thenb(0)=1000:x=b(0)
  472. 4056 ifa(1)=0thenb(0)=4680:x=b(0)/2
  473. 4058 ifa(1)=0andpb=2thenb(0)=2000:x=b(0)
  474. 4059 ifa(1)=0andpb=1andae=0thenb(0)=2000:x=b(0)
  475. 4060 b(4)=d(1)
  476. 4070 c(16)=c(16)+b(4):ifa(1)=0andpb=1andae=1thengosub4700:goto4140
  477. 4080 c(17)=int(c(16)*0.09):c(18)=c(17):ifc(17)>b(0)thenc(18)=b(0)
  478. 4090 c(19)=c(17):ifc(17)>xthenc(19)=x
  479. 4100 b(23)=c(18)+c(19)
  480. 4110 c(20)=int(b(23)/54)*54:ifa(1)=1then4130
  481. 4120 ifc(20)<600thenc(20)=600
  482. 4130 ifc(20)<300thenc(20)=300
  483. 4140 b(24)=c(15):ifc(15)<c(20)thenb(24)=c(20)
  484. 4150 c(0)=c(5)-b(24):ifa(2)=1thenc(0)=c(0)-720
  485. 4160 ifb(2)=1thenc(0)=c(0)-720
  486. 4170 ifa(1)=1anda(4)>0thenc(0)=c(0)-4536
  487. 4180 c(0)=c(0)-(a(4)*2484)-a(44)-k(30)
  488. 4190 ifa(1)=1andc(0)>(24000+a(4)*900)thenf(1)=1
  489. 4200 ifa(1)=0andc(0)>(48000+a(4)*1800)thenf(1)=1
  490. 4210 e=c(0)+a(12)+b(12):a(0)=a(1):gosub2260
  491. 4220 et=sx*(c(0)/(c(0)+a(12)+b(12))):f(6)=a(6)+b(6)
  492. 4230 e(2)=a(10)+b(10):f(2)=e(2):ife(2)=0orf(1)=1then4390
  493. 4240 ifa(9)>936thena(9)=936
  494. 4250 e(1)=23:ifa(4)>2thene(1)=33
  495. 4260 e(3)=int(a(9)*e(1)+0.5)/100+e(3)
  496. 4270 ifa(1)=1then4300
  497. 4280 ifb(9)>936thenb(9)=936
  498. 4290 e(3)=int(b(9)*e(1)+0.5)/100+e(3)
  499. 4300 ifa(8)>936thena(8)=936
  500. 4310 f(8)=a(8)-a(9):e(1)=16:ifa(4)>2thene(1)=26
  501. 4320 iff(8)<0thenf(8)=0
  502. 4330 e(3)=int(f(8)*e(1)+0.5)/100+e(3)
  503. 4340 ifa(1)=1then4380
  504. 4350 ifb(8)>936thenb(8)=936
  505. 4360 f(8)=b(8)-b(9):e(3)=int(b(8)*e(1)+0.5)/100+e(3)
  506. 4370 iff(8)<0thenf(8)=0
  507. 4380 f(2)=e(2)-e(3):iff(2)<0thenf(2)=0
  508. 4390 ifb(3)=0anda(3)=0then4550
  509. 4400 ifa(3)<>0andb(3)<>0thene(4)=et:goto4490
  510. 4410 ifa(3)=0then4460
  511. 4420 e=c(2):a(0)=1:gosub2260
  512. 4430 e(4)=sx:ifa(1)=1thene(4)=et:goto4490
  513. 4440 e=d(2):gosub2260
  514. 4450 e(4)=et*e(4)/(sx+e(4)):goto4490
  515. 4460 e=c(2):a(0)=1:gosub2260
  516. 4470 e(4)=sx:e=d(2):gosub2260
  517. 4480 e(4)=et*sx/(sx+e(4))
  518. 4490 ifa(4)=0then4530
  519. 4500 e(4)=e(4)-(600*a(4))
  520. 4530 ife(4)<0thenf(4)=0
  521. 4540 e(5)=int(e(4)*ki)/100:ife(5)<7.2thene(5)=7
  522. 4550 e(8)=4:ifa(1)thene(8)=5
  523. 4560 ifa(1)=1anda(4)>0thene(8)=5
  524. 4570 ifc(3)>100000thene(8)=e(8)+1
  525. 4580 ifc(3)>30000thene(8)=e(8)+1
  526. 4590 ifa(4)>0anda(4)<3thene(8)=e(8)-2
  527. 4600 ifa(4)=>3thene(8)=e(8)-4
  528. 4610 ife(8)<=0thene(8)=1
  529. 4620 e(7)=c(3)*e(8)/100:a(44)=a(43)-e(7):ifa(44)<0thena(44)=0
  530. 4625 :
  531. 4630 return
  532. 4700 c(17)=c(1)*.18:c(18)=d(1)*.18:ifc(18)>2000thenc(18)=2000
  533. 4710 c(19)=c(17)+c(18):c(20)=c(19):ifc(19)>7020thenc(20)=7020
  534. 4720 c(20)=int(c(20)/54)*54:ifc(20)<600thenc(20)=600
  535. 4730 return
  536. 5000 print"[147]  [202]ahres - [197]inkommensteuertabelle 1986  [146]";:tp=37:tp$=""
  537. 5010 print"[218]u versteuerndes [197]inkommen : "+d$:gosub 3570:gosub 3770
  538. 5015 ek=y:e=ek
  539. 5020 print"[202]ahressteuer [199]rundtabelle  : [196][205] "
  540. 5030 a(0)=1:gosub2260:y=sx:s(1)=sx:gosub 3770
  541. 5040 print"[202]ahressteuer [211]plittingtab. : [196][205] ":e=ek:a(0)=0:gosub 2260:s(2)=sx
  542. 5045 ifek=0thenek=1
  543. 5050 y=sx:gosub 3770
  544. 5052 print"[211]teuersatz   [199]rundtabelle  :  % [145]":y=int(((s(1)/ek)*100)*100)/100
  545. 5054 tp=34:yf=y:gosub3780
  546. 5056 print"[211]teuersatz   [211]plittingtab. :  % [145]"
  547. 5058 y=int(((s(2)/ek)*100)*100)/100:yf=y:gosub3780:tp=37
  548. 5060 print"    [211]teuervorteil durch [193]bschreibung   [146] ";
  549. 5070 print"[193]bschreibungsbetrag        : "+d$:gosub3570
  550. 5080 gosub3770:ab=y:ek=ek-ab:a(0)=1:e=ek:gosub2260:s(3)=s(1)-sx
  551. 5090 print"[211]teuervorteil [199]rundtabelle : [196][205] ":y=s(3):gosub3770
  552. 5100 :
  553. 5110 a(0)=0:e=ek:gosub2260:s(4)=s(2)-sx
  554. 5120 print"[211]teuervorteil [211]plittingtab.: [196][205] ":y=s(4):gosub3770
  555. 5130 print"        [206]eue [194]erechnung (j/n) ?        [146]";:gosub3550
  556. 5140 ifa$="j"then5000
  557. 5150 print"[147]":clr:goto70
  558. 5900 print"[147]     [193]ussergewoehnliche [194]elastungen     [146]";:return
  559. 5950 print"[145]  keine [146]";:return
  560. 6000 zn$="88":tp$="":tp=35
  561. 6005 gosub5900:ifzn$="89"thenz=1:goto6030
  562. 6010 print"[193]ngaben in [218]eile 86 - 89 ....... (j/n) ?";:gosub3550
  563. 6015 ifa$="j"then6030
  564. 6020 gosub5950:gosub3540
  565. 6025 ifa$="n"then6005
  566. 6027 goto6400
  567. 6030 print"[203]oerperbehinderte und [200]interbliebene    ";
  568. 6040 print"[193]ngaben zur betroffenen [208]erson [218]eile "+zn$+" ":a$="[146]"
  569. 6050 print"[200]interbliebener ...............(j/n) _"
  570. 6060 print"[203]oerperbehinderter ............(j/n)"
  571. 6070 print"blind/staendig pflegebed. .....(j/n)"
  572. 6080 print"geh-und stehbehindert .........(j/n)":print""
  573. 6100 fora=1to4
  574. 6110 geta$:ifa$="j"ora$="n"then6120
  575. 6115 goto6110
  576. 6120 jn$=" nein ":ifa$="j"thenk(a)=1:jn$="  ja  "
  577. 6130 print    ""+jn$+"[146] [157]_[145]":next
  578. 6140 printtab(37)"  "
  579. 6150 ifk(2)=1ork(4)=1then6160
  580. 6155 goto6190
  581. 6160 print"[197]rwerbsminderung in v.[200]. .....       [146] %":gosub3570:gosub3770
  582. 6170 ify>100theny=0:print"[145][145][145]":goto6160
  583. 6180 k(5)=y:ifzthenz=0:goto6220
  584. 6190 ifz=1then6220
  585. 6200 print"weitere betroffene [208]erson ......(j/n)":gosub3550
  586. 6210 jn$=" nein [146]":ifa$="j"thenjn$="  ja  [146]":z=1
  587. 6215 print"[145]"+jn$
  588. 6220 gosub3540:ifa$="n"thenprint"[147]":fora=1to4:k(a)=0:next:z=0:goto6005
  589. 6225 zn$="89":ok=ok+1
  590. 6230 ifk(5)>24andk(5)<35thenk(6)=600
  591. 6240 ifk(5)>34andk(5)<45thenk(6)=840
  592. 6245 ifk(5)>44andk(5)<55thenk(6)=1110
  593. 6250 ifk(5)>54andk(5)<65thenk(6)=1410
  594. 6260 ifk(5)>64andk(5)<75thenk(6)=1740
  595. 6270 ifk(5)>74andk(5)<85thenk(6)=2070
  596. 6280 ifk(5)>84andk(5)<91thenk(6)=2400
  597. 6290 ifk(5)>90andk(5)<101thenk(6)=2760
  598. 6300 ifk(3)=1thenk(10)=k(10)+7200:goto6335
  599. 6320 ifk(2)=1thenk(10)=k(10)+k(6):goto6335
  600. 6330 ifk(4)=1andk(5)>49thenk(10)=k(10)+k(6)
  601. 6335 ifk(1)=1thenk(10)=k(10)+720
  602. 6350 ifz=1andok<2thenprint"[147]":fora=1to4:k(a)=0:next:goto6005
  603. 6400 tp$="":tp=37:print"[147]":gosub5900
  604. 6405 print"[193]ngaben in [218]eile 92 + 91........(j/n) ?":gosub3550
  605. 6407 ifa$="n"thenprint"[145]  keine[146] ":goto6450
  606. 6410 print"[193]ufw.fuer [200]aushaltshilfe oder [200]eim :   "
  607. 6420 print"[196]auer der [194]elastung in [205]onaten         [146]":gosub3570:gosub3770
  608. 6425 ify>12theny=0:print"[145][145][145][145]":goto6420
  609. 6427 k(12)=y
  610. 6430 print"[211]umme der [193]ufwendungen.......[196][205]        [146]":gosub3570:gosub3770
  611. 6440 k(11)=y
  612. 6450 print"[193]ngaben in [218]eile 92 ............(j/n) ?":gosub3550
  613. 6460 jn$="  ja  ":k(13)=1:ifa$="n"thenjn$=" keine":k(13)=0
  614. 6470 print"[145] "+jn$
  615. 6480 print"[193]ngaben in [218]eile 93 + 94 .......(j/n) ?":gosub3550
  616. 6490 ifa$="n"thenprint"[145]  keine[146]":goto6540
  617. 6500 geta$:k(14)=val(a$):ifa$=chr$(13)then6540
  618. 6510 print"[193]nzahl in [218]eile 94 eingetr. [203]inder   ";k(14);"[146]";
  619. 6515 ifa$=""then6500
  620. 6520 geta$:ifa$=chr$(13)then6540
  621. 6522 ifa$=chr$(20)thenk(14)=0:goto6500
  622. 6525 goto6520
  623. 6540 print"[193]ngaben in [218]eile 95 - 99 .......(j/n) ?":gosub3550
  624. 6550 ifa$="j"then6570
  625. 6560 print"[145]  keine":goto6650
  626. 6570 print"[145][196]ie unterstuetzte [208]erson hatte :       "
  627. 6580 print"[194]ruttoarbeitslohn............[196][205]        [146]":gosub3570:gosub3770
  628. 6585 k(15)=y
  629. 6590 print"[210]enten.......................[196][205]        [146]":gosub3570:gosub3770
  630. 6595 k(16)=y
  631. 6600 print"[214]ersorgungsbezuege...........[196][205]        [146]":gosub3570:gosub3770
  632. 6605 k(17)=y
  633. 6610 print"[193]ufwand fuer die unterstuetzte [208]erson :"
  634. 6620 print".............................[196][205]        [146]":gosub3570:gosub3770
  635. 6625 k(18)=y
  636. 6650 gosub3540:ifa$="n"thenfora=11to18:k(a)=0:next:goto6400
  637. 6655 ifk(11)>k(12)*100thenk(11)=k(12)*100
  638. 6660 ifk(13)=0then6680
  639. 6662 ifa(1)=1thenk(13)=540
  640. 6663 ifa(1)=0thenk(13)=720
  641. 6665 ifa(4)<3anda(4)>0thenk(13)=840
  642. 6670 ifa(4)>2thenk(13)=900+((a(4)-3)*60)
  643. 6680 k(14)=k(14)*600
  644. 6700 v(1)=k(15)+(k(17)*.6)-1644:k(16)=k(16)-200:v(2)=v(1)+k(16)
  645. 6715 v(3)=v(2)-360:ifv(3)<0thenv(3)=0
  646. 6730 v(4)=v(3)-4500:ifv(4)<0thenv(4)=0
  647. 6740 v(5)=4500-v(4):k(19)=v(5)
  648. 6750 ifk(18)>k(19)thenk(18)=k(19)
  649. 6755 gosub5900:print"[213]nterstuezten [211]ie [214]erwandte in der [196][196][210] ?";
  650. 6757 print"(j/n)":gosub3550
  651. 6760 ifa$="n"thenprint"[145] nein ":goto6775
  652. 6761 print"[198]olgende [193]ufwendungen werden"
  653. 6762 print"pauschal beruecksichtigt :              ";
  654. 6763 print" * [196][205] 40,-- pro [208]aket"
  655. 6764 print" * [196][205] 30,-- pro [208]aeckchen"
  656. 6765 print" * [196][205] 50,-- pro [194]esuch in der [196][196][210]"
  657. 6766 print" * [196][205] 10,-- pro [194]esuch und [208]erson"
  658. 6768 print"            aus der [196][196][210]"
  659. 6769 print"[193]lle hoeheren [193]ufwendungen nur mit      entsperchendem [206]achweis!"
  660. 6770 print"[201]hre [193]ufwendungen in 1986 : "+d$:gosub3570:gosub3770
  661. 6775 gosub3540:ifa$="n"then6755
  662. 6780 k(18)=k(18)+y
  663. 6790 k$="1.":z=0:ok=0
  664. 6800 gosub5900:ifok=1thenz=1:goto6850
  665. 6810 print"[193]ngaben in [218]eile 101 - 112     (j/n) ?":gosub3550
  666. 6820 ifa$="j"then6850
  667. 6830 print"[145]  keine[146]":gosub3540
  668. 6835 ifa$="n"then6800
  669. 6836 goto7100
  670. 6850 print"[193]usbildungsfreibetrag ("+k$+"[203]ind)        "
  671. 6860 print"[203]ind aelter als 18 [202]ahre .......(j/n) ?":gosub3550
  672. 6865 a=0:jn$=" nein ":ifa$="j"thenjn$="  ja  ":a=1
  673. 6870 print"[145] "+jn$
  674. 6890 print"[193]uswaertige [213]nterbringung.......(j/n) ?":gosub3550
  675. 6895 ifa$="n"anda=1thenk(20)=1800:jn$=" nein ":goto6910
  676. 6900 k(20)=3000:ifa$="j"anda=0thenk(20)=1200:jn$="  ja  "
  677. 6910 print"[145] "+jn$
  678. 6915 ifa$="n"anda=0thenk(20)=0:print"[203]ein [198]reibetrag abzugsfaehig !":goto6990
  679. 6920 print"[196]as [203]ind hatte im [193]usbildungszeitraum :"
  680. 6930 print"[194]ruttoarbeitslohn............[196][205]        [146]":gosub3570:gosub3770
  681. 6935 k(21)=y
  682. 6940 print"[193]usbildungsbeihilfe..........[196][205]        [146]":gosub3570:gosub3770
  683. 6945 k(22)=y
  684. 6950 print"andere [197]inkuenfte/[194]ezuege....[196][205]        [146]":gosub3570:gosub3770
  685. 6955 k(23)=y
  686. 6960 print"[196]auer der [193]usbildung in [205]onaten        [146]":gosub3570:gosub3770
  687. 6970 ify>12thenprint"[145][145][145]":goto6960
  688. 6980 k(24)=y:ifz=1then7020
  689. 6990 ifok=0thenprint"[193]usbildungsfreibetr.fuer 2.[203]ind (j/n) ?";:gosub3550
  690. 7000 jn$=" nein ":ifa$="j"thenjn$="  ja  ":z=1
  691. 7010 print"[145] "+jn$
  692. 7020 gosub3540:ifa$="n"thenfora=20to24:k(a)=0:next:z=0:goto6800
  693. 7030 v(6)=(k(20)/12)*k(24)
  694. 7040 v(7)=k(21)-4044:ifv(7)<0thenv(7)=0
  695. 7050 v(7)=v(6)-v(7)-k(22)-k(23):ifv(7)<0thenv(7)=0
  696. 7055 ifok=1thenk(26)=v(7):goto7100
  697. 7060 k(25)=v(7):k$="2.":ok=ok+1:ifz=1thenv(6)=0:v(7)=0:goto6800
  698. 7100 gosub5900
  699. 7110 print"[193]ngaben in [218]eile 109 - 113 .....(j/n) ?":gosub3550
  700. 7120 ifa$="j"then7150
  701. 7130 gosub5950
  702. 7135 goto 7170
  703. 7150 print"[145][203]inderbetreuungskosten [208]auschbetrag   :"
  704. 7160 print"[194]eruecksichtigter [194]etrag min.[196][205]       ":y=a(4)*480:gosub3770
  705. 7165 print" oder"
  706. 7167 print"[194]etrag laut [218]eile 113 .......[196][205]        [146]":gosub3570:gosub3770
  707. 7168 k(27)=y:ify=0thenk(29)=a(4)*480:goto7170
  708. 7169 k(27)=k(27)-(a(4)*480):ifk(27)<0thenk(27)=0
  709. 7170 print"[146][193]ngaben in [218]eile 114 - 117......(j/n) ?":gosub3550
  710. 7180 ifa$="n"thengosub5950:goto7195
  711. 7190 print"[145] [193]ndere aussergewoehnliche [194]elastungen [146]"
  712. 7191 print"[211]umme der [193]ufwendungen total [196][205]        [146]":gosub3570:gosub3770
  713. 7192 k(27)=k(27)+y
  714. 7194 print "[211]umme der [213]nterstuetzungen...[196][205]        [146]":gosub3570:gosub3770
  715. 7195 gosub3540:ifa$="n"thenk(27)=0:k(28)=0:k(29)=0:goto7100
  716. 7196 :
  717. 7200 k(28)=y:a(43)=k(27)-k(28):ifk(27)<0thenk(27)=0
  718. 7205 k(30)=k(10)+k(11)+k(13)+k(14)+k(18)+k(25)+k(26)+k(29)
  719. 7210 return
  720.